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EXECUTIVE  SUMMARY 


This  Validation  Summary  Report  (VSR)  summarizes  the  results 
and  conclusions  of  validation  testing  performed  on  the  SYS¬ 
TEAM  German  MoD  VAX-VMS  Ada  Compiler,  Version  VI. 6,  using 
Version  1.8  of  the  Ada  Compiler  Validation  Capability 
(ACVC).  The  SYSTEAM  German  MoD  VAX-VMS  Ada  Compiler  is 
hosted  on  a  VAX  8500  operating  under  VMS,  Version  4.5.  Pro¬ 
grams  processed  by  this  compiler  may  be  executed  on  a  VAX 
8500  operating  under  VMS  Version  4.5. 

On-site  testing  was  performed  87-02-09  through  87-02-11  at 
SYSTEAM  KG,  Karlsruhe,  under  the  direction  of  the  IABG 
m.b.H.,  Dept  SZT  (AVF),  according  to  Ada  Validation  Organi¬ 
zation  (AVO)  policies  and  procedures.  The  AVF  identified 
2138  of  the  2399  tests  in  ACVC  Version  1.8  to  be  processed 
during  on-site  testing  of  the  compiler.  The  19  tests  with¬ 
drawn  at  the  time  of  validation  testing,  as  well  as  the  242 
executable  tests  that  make  use  of  floating-point  precision 
exceeding  that  supported  by  the  implementation,  were  not 
processed.  After  the  2138  tests  were  processed,  results  for 
Class  A,  C,  D,  or  E  tests  were  examined  for  correct  execu¬ 
tion.  Compilation  listings  for  Class  B  tests  were  analyzed 
for  correct  diagnosis  of  syntax  and  semantic  errors.  Compi¬ 
lation  and  link  results  of  Class  L  tests  were  analyzed  for 
correct  detection  of  errors.  There  were  33  of  the  processed 
tests  determined  to  be  inapplicable.  The  remaining  2105 
tests  were  passed. 

The  results  of  validation  are  summarized  in  the  following 
table : 

RESULT  CHAPTER 


2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

14 

Passed 

94 

222 

298 

244 

161 

97 

137 

261 

124 

32 

218 

217 

Failed 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

22 

103 

122 

3 

0 

0 

2 

1 

6 

0 

0 

16 

Withdrawn 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0 

1 

0 

TOTAL 

116 

330 

425 

247 

161 

98 

140 

264 

134 

32 

219 

233 

The  AVF  concludes  that  these  results  demonstrate  acceptable 
conformity  to  ANSI/MIL-STD-1815A  Ada. 


Ada  is  a  registered  trademark  of  the  United  States 
Government  (Ada  Joint  Program  Office). 
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EXECUTIVE  SUMMARY 


This  Validation  Summary  Report  (VSR)  summarizes  the  results 
and  conclusions  of  validation  testing  performed  on  the  SYS- 
TEAM  German  MoD  VAX-VMS  Ada  Compiler,  Version  VI. 6,  using 
Version  1.8  of  the  Ada  Compiler  Validation  Capability 
(ACVC) .  The  SYSTEAM  German  MoD  VAX-VMS  Ada  Compiler  is 
hosted  on  a  VAX  8500  operating  under  VMS,  Version  4.5.  Pro¬ 
grams  processed  by  this  compiler  may  be  executed  on  a  VAX 
8500  operating  under  VMS  Version  4.5. 

On-site  testing  was  performed  87-02-09  through  87-02-11  at 
SYSTEAM  KG,  Karlsruhe,  under  the  direction  of  the  IABG 
m.b.H.,  Dept  SZT  (AVF),  according  to  Ada  Validation  Organi¬ 
zation  (AVO)  policies  and  procedures.  The  AVF  identified 
2138  of  the  2399  tests  in  ACVC  Version  1.8  to  be  processed 
during  on-site  testing  of  the  compiler.  The  19  tests  with¬ 
drawn  at  the  time  of  validation  testing,  as  well  as  the  242 
executable  tests  that  make  use  of  floating-point  precision 
exceeding  that  supported  by  the  implementation,  were  not 
processed.  After  the  2138  tests  were  processed,  results  for 
Class  A,  C,  D,  or  E  tests  were  examined  for  correct  execu¬ 
tion.  Compilation  listings  for  Class  B  tests  were  analyzed 
for  correct  diagnosis  of  syntax  and  semantic  errors.  Compi¬ 
lation  and  link  results  of  Class  L  tests  were  analyzed  for 
correct  detection  of  errors.  There  were  33  of  the  processed 
tests  determined  to  be  inapplicable.  The  remaining  2105 
tests  were  passed. 

The  results  of  validation  are  summarized  in  the  following 
table : 


RESULT 

2 

3 

4 

5 

6 

CHAPTER 

7  8  9 

10 

11 

12 

14 

TCI 

Passed 

94 

222 

298 

244 

161 

97 

137 

261 

124 

32 

218 

217 

21 

Failed 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

22 

103 

122 

3 

0 

0 

2 

1 

6 

0 

0 

16 

7 

Withdrawn 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0 

1 

0 

TOTAL 

116 

330 

425 

247 

161 

98 

140 

264 

134 

32 

219 

233 

22 

The  AVF  concludes  that  these  results  demonstrate  acceptable 
conformity  to  ANSI/MIL-STD-1815A  Ada. 


Ada  is  a  registered  trademark  of  the  United  States 
Government  (Ada  Joint  Program  Office). 
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CHAPTER  1 


INTRODUCTION 


This  Validation  Summary  Report  (VSR)  describes  the  extent  to 
which  a  specific  Ada  compiler  conforms  to  the  Ada  Standard, 
ANSI/MIL-STD-1815A.  This  report  explains  all  technical 
terms  used  within  it  and  thoroughly  reports  the  results  of 
testing  this  compiler  using  the  Ada  Compiler  Validation 
Capability  (ACVC).  An  Ada  compiler  must  be  implemented 
according  to  the  Ada  Standard,  and  any  implementation- 
dependent  features  must  conform  to  the  requirements  of  the 
Ada  Standard.  The  Ada  Standard  must  be  implemented  in  its 
entirety,  and  nothing  can  be  implemented  that  is  not  in  the 
Standard . 

Even  though  all  validated  Ada  compilers  conform  to  the  Ada 
Standard,  it  must  be  understood  that  some  differences  do 
exist  between  implementations.  The  Ada  Standard  permits 
some  implementation  dependencies  —  for  example,  the  maximum 
length  of  identifiers  or  the  maximum  values  of  integer 
types.  Other  differences  between  compilers  result  from 
characteristics  of  particular  operating  systems,  hardware, 
or  implementation  strategies.  All  of  the  dependencies 
observed  during  the  process  of  testing  this  compiler  are 
given  in  this  report. 

The  information  in  this  report  is  derived  from  the  test 
results  produced  during  validation  testing.  The  validation 
process  includes  submitting  a  suite  of  standardized  tests, 
the  ACVC,  as  inputs  to  an  Ada  compiler  and  evaluating  the 
results.^The  purpose  of  validating  is  to  ensure  conformity 
of  the  compiler  to  the  Ada  Standard  by  testing  that  the  com¬ 
piler  properly  implements  legal  language  constructs  and  that 
it  identifies  and  rejects  illegal  language  constructs.  The 
testing  also  identifies  behavior  that  is  implementation 
dependent  but  permitted  by  the  Ada  Standard.  Six  classes  of 
tests  are  used.  These  tests  are  designed  to  perform  checks 
at  compile  time,  at  link  time,  and  during  execution. 


1.1  PURPOSE  OF  THIS  VALIDATION  SUMMARY  REPORT 


This  VSR  documents  the  results  of  the  validation  testing 
performed  on  an  Ada  compiler.  Testing  was  carried  out  for 
the  following  purposes: 

.  To  attempt  to  identify  any  language  constructs  supported 
by  the  compiler  that  do  not  conform  to  the  Ada  Standard 

.  To  attempt  to  identify  any  unsupported  language  con¬ 
structs  required  by  the  Ada  Standard 

.  To  determine  that  the  implementation-dependent  behavior 
is  allowed  by  the  Ada  Standard 

Testing  of  this  compiler  was  conducted,  under  the  direction 
of  the  AVF  according  to  policies  and  procedures  established 
by  the  Ada  Validation  Organization  (AVO) .  On-site  testing 
was  conducted  from  87-02-09  through  87-02-11  at  SYSTEAM  KG, 
Karlsruhe . 


1.2  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  coun¬ 
try,  the  AVO  may  make  full  and  free  public  disclosure  of 
this  report.  In  the  United  States,  this  is  provided  in 
accordance  with  the  "Freedom  of  Information  Act"  (5  U.S.C. 
/552).  The  results  of  this  validation  apply  only  to  the  com¬ 
puters,  operating  systems,  and  compiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this 
report  do  not  represent  or  warrant  that  all  statements  set 
forth  in  this  report  are  accurate  and  complete,  or  that  the 
subject  compiler  has  no  nonconformities  to  the  Ada  Standard 
other  than  those  presented.  Copies  of  this  report  are  avail¬ 
able  to  the  public  from: 


Ada  Information  Clearinghouse 
Ada  Joint  Program  Office 
OUSDRE • 

The  Pentagon,  Rm  3D-139  (Fern  Street) 
Washington  DC  20301-3081 


or  from: 


I ABG  m.b.H.,  Dept  SZT 
Einsteinstrasse  20 
D-8012  Ottobrunn 
West  Germany 


Questions  regarding  this  report  or  the  validation 
results  should  be  directed  to  the  AVF  listed  above  or  to 

Ada  Validation  Organization 
Institute  for  Defense  Analyses 
1801  North  Beauregard  Street 
Alexandria  VA  22311 


1.3  REFERENCES 

1 .  Reference  Manual  for  the  Ada  Proqramminq  Lanquaqe 


ANSI/MIL-STD-1815A,  FEB  1983. 

2.  Validation  Procedures  and  Guidelines , 

Ada  Joint  Program  Office,  Jan  1987. 

3.  Ada  Compiler  Validation  Capability  Implementers ' 


Guide,  So f Tech,  Inc.,  DEC  1984. 


1.4  DEFINITION  OF  TERMS 


ACVC 


The  Ada  Compiler  Validation  Capability.  A  set 
of  programs  that  evaluates  the  conformity  of  a 
compiler  to  the  Ada  language  specification, 
ANSl/MIL-STD— 1815A. 


Ada  Standard  ANSI/MIL-STD-1815A,  February  1983. 


Applicant 


Compiler 


Failed  test 


The  agency  requesting  validation. 

The  Ada  Validation  Facility.  In  the  context  of 
this  report,  the  AVF  is  responsible  for  con¬ 
ducting  compiler  validations  according  to 
established  policies  and  procedures. 

The  Ada  Validation  Organization.  In  the  con¬ 
text  of  this  report,  the  AVO  is  responsible 
for  setting  procedures  for  compiler  valida¬ 
tions  . 

A  processor  for  the  Ada  language.  In  the  con¬ 
text  of  this  report,  a  compiler  is  any 
language  processor,  including  cross-compilers, 
translators,  and  interpreters. 

A  test  for  which  the  compiler  generates  a 
result  that  demonstrates  nonconformity  to  the 
Ada  Standard. 


rv'iA,*  /' 


Host 


The  computer  on  which  the  compiler  resides. 


Inapplicable  A  test  that  uses  features  of  the  language  that 
test  a  compiler  is  not  required  to  support  or  may 

legitimately  support  in  a  way  other  than  the 
one  expected  by  the  test. 

Passed  test  A  test  for  which  a  compiler  generates  the 
expected  result. 


Target 


The  computer  for  which  a  compiler  generates 
code . 


Test 


Withdrawn 

test 


A  program  that  checks  a  compiler's  conformity 
regarding  a  particular  feature  or  features  to 
the  Ada  Standard.  In  the  context  of  this 
report,  the  term  is  used  to  designate  a  single 
test,  which  may  comprise  one  or  more  files. 

A  test  found  to  be  incorrect  and  not  used  to 
check  conformity  to  the  Ada  language  specifi¬ 
cation.  A  test  may  be  incorrect  because  it 
has  an  invalid  test  objective,  fails  to  meet 
its  test  objective,  or  contains  illegal  or 
erroneous  use  of  the  language. 


1.5  ACVC  TEST  CLASSES 

Conformity  to  the  Ada  Standard  is  measured  using  the  ACVC. 
The  ACVC  contains  both  legal  and  illegal  Ada  programs  struc¬ 
tured  into  six  test  classes:  A,  B,  C,  D,  E,  and  L.  The  first 
letter  of  a  test  name  identifies  the  class  to  which  it 
belongs.  Class  A,  C,  D,  and  E  tests  are  executable,  and  spe¬ 
cial  program  units  are  used  to  report  their  results  during 
execution.  Class  B  tests  are  expected  to  produce  compilation 
errors.  Class  L  tests  are  expected  to  produce  link  errors. 

Class  A  tests  check  that  legal  Ada  programs  can  be  success¬ 
fully  compiled  and  executed.  However,  no  checks  are  per¬ 
formed  during  execution  to  see  if  the  test  objective  has 
been  met.  For  example,  a  Class  A  test  checks  that  reserved 
words  of  another  language  (other  than  those  already  reserved 
in  the  Ada  language)  are  not  treated  as  reserved  words  by  an 
Ada  compiler.  A  Class  A  test  is  passed  if  no  errors  are 
detected  at  compile  time  and  the  program  executes  to  produce 
a  PASSED  message. 

Class  B  tests  check  that  a  compiler  detects  illegal  language 
usage.  Class  B  tests  are  not  executable.  Each  test  in  this 
class  is  compiled  and  the  resulting  compilation  listing  is 
examined  to  verify  that  every  syntax  or  semantic  error  in 
the  test  is  detected.  A  Class  B  test  is  passed  if  every 
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illegal  construct  that  it  contains  is  detected  by  the  com¬ 
piler  . 


Class  C  tests  check  that  legal  Ada  programs  can  be  correctly 
compiled  and  executed.  Each  Class  C  test  is  self-checking 
and  produces  a  PASSED,  FAILED,  or  NOT  APPLICABLE  message 
indicating  the  result  when  it  is  executed. 

Class  D  tests  check  the  compilation  and  execution  capacities 
of  a  compiler.  Since  there  are  no  capacity  requirements 
placed  on  a  compiler  by  the  Ada  Standard  for  some  parameters 
—  for  example,  the  number  of  identifiers  permitted  in  a 
compilation  or  the  number  of  units  in  a  library  —  a  com¬ 
piler  may  refuse  to  compile  a  Class  D  test  and  still  be  a 
conforming  compiler.  Therefore,  if  a  Class  D  test  fails  to 
compile  because  the  capacity  of  the  compiler  is  exceeded, 
the  test  is  classified  as  inapplicable.  If  a  Class  D  test 
compiles  successfully,  it  is  self-checking  and  produces  a 
PASSED  or  FAILED  message  during  execution. 

Each  Class  E  test  is  self-checking  and  produces  a  NOT  APPLI¬ 
CABLE,  PASSED,  or  FAILED  message  when  it  is  compiled  and 
executed.  However,  the  Ada  Standard  permits  an  implementa¬ 
tion  to  reject  programs  containing  some  features  addressed 
by  Class  E  tests  during  compilation.  Therefore,  a  Class  E 
test  is  passed  by  a  compiler  if  it  is  compiled  successfully 
and  executes  to  produce  a  PASSED  message,  or  if  it  is 
rejected  by  the  compiler  for  an  allowable  reason. 

Class  L  tests  check  that  incomplete  or  illegal  Ada  programs 
involving  multiple,  separately  compiled  units  are  detected 
and  not  allowed  to  execute.  Class  L  tests  are  compiled 
separately  and  execution  is  attempted.  A  Class  L  test 
passes  if  it  is  rejected  at  link  time  —  that  is,  an  attempt 
to  execute  the  main  program  must  generate  an  error  message 
before  any  declarations  in  the  main  program  or  any  units 
referenced  by  the  main  program  are  elaborated. 

Two  library  units,  the  package  REPORT  and  the  procedure 
CHECK_FILE,  support  the  self-checking  features  of  the  exe¬ 
cutable  tests.  The  package  REPORT  provides  the  mechanism  by 
which  executable  tests  report  PASSED,  FAILED,  or  NOT  APPLI¬ 
CABLE  results.  It  also  provides  a  set  of  identity  functions 
used  to  defeat  some  compiler  optimizations  allowed  by  the 
Ada  Standard  that  would  circumvent  a  test  objective.  The 
procedure  CHECK_FILE  is  used  to  check  the  contents  of  text 
files  written  by  some  of  the  Class  C  tests  for  chapter  14  of 
the  Ada  Standard.  The  operation  of  these  units  is  checked  by 
a  set  of  executable  tests.  These  tests  produce  messages  that 
are  examined  to  verify  that  the  units  are  operating 
correctly.  If  these  units  are  not  operating  correctly,  then 
the  validation  is  not  attempted. 

The  text  of  the  tests  in  the  ACVC  follow  conventions  that 
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are  intended  to  ensure  that  the  tests  are  reasonably  port¬ 
able  without  modification.  For  example,  the  tests  make  use 
of  only  the  basic  set  of  55  characters,  contain  lines  with  a 
maximum  length  of  72  characters,  use  small  numeric  values, 
and  place  features  that  may  not  be  supported  by  all  imple¬ 
mentations  in  separate  tests.  However,  some  tests  contain 
values  that  require  the  test  to  be  customized  according  to 
implementation-specif ic  values  —  for  example,  an  illegal 
file  name.  A  list  of  the  values  used  for  this  validation  is 
provided  in  Appendix  C. 

A  compiler  must  correctly  process  each  of  the  tests  in  the 
suite  and  demonstrate  conformity  to  the  Ada  Standard  by 
either  meeting  the  pass  criteria  given  for  the  test  or  by 
showing  that  the  test  is  inapplicable  to  the  implementation. 
Any  test  that  was  determined  to  contain  an  illegal  language 
construct  or  an  erroneous  language  construct  is  withdrawn 
from  the  ACVC  and,  therefore,  is  not  used  in  testing  a  com¬ 
piler.  The  tests  withdrawn  at  the  time  of  validation  are 
given  in  Appendix  D. 


CHAPTER  2 


CONFIGURATION  INFORMATION 


2.1  CONFIGURATION  TESTED 

The  candidate  compilation  system  for  this  validation  was 
tested  under  the  following  configuration: 

Compiler:  SYSTEAM  German  MoD  VAX-VMS  Ada  Compiler,  Version 

AC VC  Version:  1.8 

Certificate  Expiration  Date:  88-05-13 

“  :  g?02llT  l.QfrOSfc 

Host  Computer : 

Machine:  VAX  8500 

Operating  System:  VMS 

Version  4.5 

Memory  Size:  20  MB 

Target  Computer: 

Machine:  VAX  8500 

Operating  System:  VMS 

Version  4.5 

Memory  Size:  20  MB 


2.2  IMPLEMENTATION  CHARACTERISTICS 

One  of  the  purposes  of  validating  compilers  is  to  determine 
the  behavior  of  a  compiler  in  those  areas  of  the  Ada  Stan¬ 
dard  that  permit  implementations  to  differ.  Class  D  and  E 
tests  specifically  check  for  such  implementation  differ¬ 
ences.  However,  tests  in  other  classes  also  characterize  an 
implementation.  This  compiler  is  characterized  by  the  fol¬ 
lowing  interpretations  of  the  Ada  Standard: 


.  Capacities. 

The  compiler  correctly  processes  tests  containing  loop 
statements  nested  to  65  levels,  block  statements  nested 
to  65  levels,  and  recursive  procedures  separately  com¬ 
piled  as  subunits  nested  to  17  levels.  It  correctly 


processes  a  compilation  containing  723  variables  in  the 
same  declarative  part.  (See  tests  D55A03A. .H  (8  tests), 
D56001B,  D64005E..G  (3  tests),  and  D29002K.) 


Universal  integer  calculations. 

An  implementation  is  allowed  to  reject  universal  integer 
calculations  having  values  that  exceed  SYSTEM. MAX_INT. 
This  implementation  does  not  reject  such  calculations  and 
processes  them  correctly.  (See  tests  D4A002A,  D4A002B, 
D4A004A,  and  D4A004B.) 


Predefined  types. 

This  implementation  supports  the  additional  predefined 
types  SHORT_INTEGER  and  SHORT_FLOAT  in  the  package  STAN¬ 
DARD.  (See  tests  B86001C  and  B86001D.) 


Based  literals. 

An  implementation  is  allowed  to  reject  a  based  literal 
with  a  value  exceeding  SYSTEM. MAX_INT  during  compilation, 
or  it  may  raise  NUMERIC_ERROR  or  CONSTRAINT_ERROR  during 
execution.  This  implementation  raises  NUMERIC_ERROR  dur¬ 
ing  execution.  (See  test  E24101A.) 


Array  types. 

An  implementation  is  allowed  to  raise  NUMERIC_ERROR  or 
CONSTRAINT_ERROR  for  an  array  having  a  'LENGTH  that 
exceeds  STANDARD. INTEGER' LAST  and/or  SYSTEM .MAX_INT. 

A  packed  BOOLEAN  array  having  a  'LENGTH  exceeding 
INTEGER’ LAST  raises  NUMERIC_ERROR  when  the  array  type  is 
declared.  (See  test  C52103X. ) 

A  packed  two-dimensional  BOOLEAN  array  with  more  than 
INTEGER 'LAST  components  raises  NUMERIC_ERROR  when  the 
array  objects  are  declared.  (See  test  C52104Y.) 

A  null  array  with  one  dimension  of  length  greater  than 
INTEGER' LAST  may  raise  NUMERIC_ERROR  or  CONSTRAINT_ERROR 
either  when  declared  or  assigned.  Alternatively,  an 
implementation  may  accept  the  declaration.  However, 
lengths  must  match  in  array  slice  assignments.  This 
implementation  raises  NUMERIC_ERROR  when  the  array  type 
is  declared.  (See  test  E52103Y. ) 


In  assigning  one-dimensional  array  types,  the  expression 
appears  to  be  evaluated  in  its  entirety  before 
CONSTRAINT_ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's  sub- 
type.  In  assigning  two-dimensional  array  types,  the 
expression  does  not  appear  to  be  evaluated  in  its 
entirety  before  CONSTRAINT_ERROR  is  raised  when  checking 
whether  the  expression's  subtype  is  compatible  with  the 
target's  subtype.  (See  test  C52013A.) 


Discriminated  types. 

During  compilation,  an  implementation  is  allowed  to 
either  accept  or  reject  an  incomplete  type  with  discrim¬ 
inants  that  is  used  in  an  access  type  definition  with  a 
compatible  discriminant  constraint.  This  implementation 
accepts  such  subtype  indications.  (See  test  E38104A.) 

In  assigning  record  types  with  discriminants,  the  expres¬ 
sion  appears  to  be  evaluated  in  its  entirety  before 
CONSTRAINT_ERROR  is  raised  when  checking  whether  the 
expression's  subtype  is  compatible  with  the  target's  sub- 
type.  (See  test  C52013A.) 


Aggregates . 

In  the  evaluation  of  a  multi-dimensional  aggregate,  all 
choices  appear  to  be  evaluated  before  checking  against 
the  index  type.  (See  tests  C43207A  and  C43207B.) 

In  the  evaluation  of  an  aggregate  containing  subaggre¬ 
gates,  all  choices  are  evaluated  before  being  checked  for 
identical  bounds.  (See  test  E43212B.)  All  choices  are 
evaluated  before  CONSTRAINT_ERROR  is  raised  if  a  bound  in 
a  nonnull  range  of  a  nonnull  aggregate  does  not  belong  to 
an  index  subtype.  (See  test  E43211B.) 


Functions . 

An  implementation  may  allow  the  declaration  of  a  parame¬ 
terless  function  and  an  enumeration  literal  having  the 
same  profile  in  the  same  immediate  scope,  or  it  may 
reject  the  function  declaration.  If  it  accepts  the  func¬ 
tion  declarations,  the  use  of  the  enumeration  literal's 
identifier  denotes  the  function.  This  implementation 
rejects  the  declarations.  (See  test  E66001D. ) 


Representation  clauses. 

The  Ada  Standard  does  not  require  an  implementation  to 
support  representation  clauses.  If  a  representation 
clause  is  not  supported,  then  the  implementation  must 
reject  it.  While  the  operation  of  representation  clauses 
is  not  checked  by  Version  1.8  of  the  ACVC,  they  are  used 
in  testing  other  language  features.  This  implementation 
accepts  ‘SIZE  and  ' STORAGE_SIZE  for  tasks,  ’ STORAGE_SIZE 
for  collections,  and  'SMALL  clauses.  Enumeration 
representation  clauses,  including  those  that  specify  non¬ 
contiguous  values,  appear  to  be  supported.  (See  tests 
C55B16A,  C87B62A,  C87B62B,  C87B62C,  and  BC1002A.) 


Pragmas . 

The  pragma  INLINE  is  not  supported  for  procedures.  The 
pragma  INLINE  is  not  supported  for  functions.  (See  tests 
CA3004E  and  CA3004F.) 


Input/output. 

The  package  SEQUENTIAL_IO  can  be  instantiated  with  uncon¬ 
strained  array  types  and  record  types  with  discriminants. 
The  package  DIRECT_IO  can  not  be  instantiated  with  an 
unconstrained  array  type.  (See  tests  AE2101C,  AE2101H, 
CE2201D,  CE2201E,  and  CE2401D. ) 

An  existing  text  file  can  be  opened  in  OUT_FILE  mode,  can 
be  created  in  OUT_FILE  mode,  and  can  be  created  in 
IN_FILE  mode.  (See  test  EE3102C.) 

More  than  one  internal  file  can  be  associated  with  each 
external  file  for  text  I/O  for  reading  only.  (See  tests 
CE3111A. .E  (5  tests).) 

More  than  one  internal  file  can  be  associated  with  each 
external  file  for  sequential  I/O  for  reading  only.  (See 
tests  CE2107A. .F  (6  tests).) 

More  than  one  internal  file  can  be  associated  with  each 
external  file  for  direct  I/O  for  reading  only.  (See  tests 
CE2107A..F  (6  tests).) 

Temporary  sequential  files  are  not  given  a  name.  Tem¬ 
porary  direct  files  are  not  given  a  name.  (See  tests 
CE2108A  and  CE2108C.) 


Generics . 


Generic  subprogram  declarations  and  bodies  can  be  com 
piled  in  separate  compilations.  (See  test  CA2009F.)  Gen 
eric  package  declarations  and  bodies  can  be  compiled  i 
separate  compilations.  (See  tests  CA2009C  and  BC3205D.) 
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CHAPTER  3 
TEST  INFORMATION 

3.1  TEST  RESULTS 

Version  1.8  of  the  ACVC  contains  2399  tests.  When  validation 
testing  of  SYSTEAM  German  MoD  VAX- VMS  Ada  Compiler  was  per¬ 
formed,  19  tests  had  been  withdrawn.  The  remaining  2380 
tests  were  potentially  applicable  to  this  validation.  The 
AVF  determined  that  275  tests  were  inapplicable  to  this 
implementation,  and  that  the  2105  applicable  tests  were 
passed  by  the  implementation.  There  were  no  failed  tests. 

The  AVF  concludes  that  the  testing  results  demonstrate 
acceptable  conformity  to  the  Ada  Standard. 


3.2  SUMMARY  OF  TEST  RESULTS  BY  CLASS 

RESULT  TEST  CLASS  TOTAL 


A 

B 

C 

D 

E 

L 

Passed 

69 

864 

1100 

17 

11 

44 

2105 

Failed 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

0 

3 

268 

0 

2 

2 

275 

Withdrawn 

0 

7 

12 

0 

0 

0 

19 

TOTAL 

69 

874 

1380 

17 

13 

46 

2399 

3.3  SUMMARY  OF  TEST  RESULTS  BY  CHAPTER 


RESULT 

2 

3 

4 

CHAPTER 

5  6  7 

8 

9 

10 

11 

12 

14 

TOTAL 

Passed 

94 

222 

298 

244 

161 

97 

137 

261 

124 

32 

218 

217 

2105 

Failed 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Inapplicable 

22 

103 

122 

3 

0 

0 

2 

1 

6 

0 

0 

16 

275 

Withdrawn 

0 

5 

5 

0 

0 

1 

1 

2 

4 

0 

1 

0 

19 

TOTAL 

116 

330 

425 

247 

161 

98 

140 

264 

134 

32 

219 

233 

2399 

17 


1 
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3.4  WITHDRAWN  TESTS 


The  following  19  tests  were  withdrawn  from  ACVC  Version  1.8 
at  the  time  of  this  validation: 


C32114A 

B33203C 

C34018A 

C35904A 

B37401A 


C41404A 

B45116A 

C48008A 

B49006A 

B4A010C 


B74101B 

C87B50A 

C92005A 

C940ACA 

CA3005A..D  (4  tests) 
BC3204C 


See  Appendix  D  for  the  reason  that  each  of  these  tests  was 
withdrawn . 


3.5  INAPPLICABLE  TESTS 


Some  tests  do  not  apply  to  all  compilers  because  they  make 
use  of  features  that  a  compiler  is  not  required  by  the  Ada 
Standard  to  support .  Others  may  depend  on  the  result  of 
another  test  that  is  either  inapplicable  or  withdrawn.  For 
this  validation  attempt,  275  tests  were  inapplicable  for  the 
reasons  indicated: 


C24113D. .E  (2  tests)  are  inapplicable  because  they  con¬ 
tain  lines  which  are  longer  than  MAX  IN  LEN. 


C34001E,  B52004D,  B55B09C,  and  C55B07A  use  LONG_INTEGER 
which  is  not  supported  by  this  compiler. 


C34001G  and  C35702B  use  LONG_FLOAT  which  is  not  supported 
by  this  compiler. 


B86001D  is  inapplicable  because  there  is  no  valid  substi¬ 
tution  for  the  macro  $NAME. 


C86001F  redefines  package  SYSTEM,  but  TEXT_IO  is  made 
obsolete  by  this  new  definition  in  this  implementation 
and  the  test  cannot  be  executed  since  the  package  REPORT 
is  dependent  on  the  package  TEXT  10. 


C96005B  checks  implementations  for  which  the  smallest  and 
largest  values  in  type  DURATION  are  different  from  the 
smallest  and  largest  values  in  DURATION'S  base  type.  This 
is  not  the  case  for  this  implementation. 


CA3004E,  EA3004C,  and  LA3004A  use  INLINE  pragma  for  pro¬ 
cedures  which  is  not  supported  by  this  compiler. 


.  CA3004F,  EA3004D,  and  LA3004B  use  INLINE  pragma  for  func¬ 

tions  which  is  not  supported  by  this  compiler. 

.  CE2108A,  CE2108C  and  CE3112A  are  inapplicable  because 

temporary  files  have  no  name. 

.  CE2107B..E  (4  tests),  CE2110B,  CE2111D,  CE2111H, 

CE3111B..E  (4  tests)  and  CE3114B  are  inapplicable  because 
multiple  internal  files  can  only  be  associated  with  the 
same  external  file  for  reading.  The  proper  exception  is 
raised  when  multiple  access  is  attempted. 

.  CE2401D  is  inapplicable  because  a  use_error  is  raised  for 

create . 

.  The  following  242  tests  require  a  floating-point  accuracy 
that  exceeds  the  maximum  of  9  supported  by  the  implemen¬ 
tation  : 

C24113F..Y  (20  tests) 

C35705F. . Y  (20  tests) 

C35706F..Y  (20  tests) 

C35707F . . Y  (20  tests) 

C35708F..Y  (20  tests) 

C35802F..Y  (20  tests) 

C45241F. . Y  (20  tests) 

C45321F . . Y  (20  tests) 

C45421F..Y  (20  tests) 

C45424F. . Y  (20  tests) 

C45521F. .Z  (21  tests) 

C45621F . .Z  (21  tests) 


3.6  SPLIT  TESTS 

If  one  or  more  errors  do  not  appear  to  have  been  detected  in 
a  Class  B  test  because  of  compiler  error  recovery,  then  the 
test  is  split  into  a  set  of  smaller  tests  that  contain  the 
undetected  errors.  These  splits  are  then  compiled  and  exam¬ 
ined.  The  splitting  process  continues  until  all  errors  are 
detected  by  the  compiler  or  until  there  is  exactly  one  error 
per  split.  Any  Class  A,  Class  C,  or  Class  E  test  that  can¬ 
not  be  compiled  and  executed  because  of  its  size  is  split 
into  a  set  of  smaller  subtests  that  can  be  processed. 

Splits  were  required  for  6  Class  B  tests. 


B97101E  BC10AEB  BC3204B 
BC3204D  BC3205B  BC3205C 
BC3205D 


3.7  ADDITIONAL  TESTING  INFORMATION 


3.7.1  Prevalidation 

Prior  to  validation,  a  set  of  test  results  for  ACVC  Version 
1.8  produced  by  the  SYSTEAM  German  MoD  VAX-VMS  Ada  Compiler 
was  submitted  to  the  AVF  by  the  applicant  for  review. 
Analysis  of  these  results  demonstrated  that  the  compiler 
successfully  passed  all  applicable  tests,  and  the  compiler 
exhibited  the  expected  behavior  on  all  inapplicable  tests. 


3.7.2  Test  Method 

Testing  of  the  SYSTEAM  German  MoD  VAX-VMS  Ada  Compiler  using 
ACVC  Version  1.8  was  conducted  on-site  by  a  validation  team 
from  the  AVF.  The  configuration  consisted  of  a  VAX  8500 
host/target  operating  under  VMS,  Version  4.5. 

A  magnetic  tape  containing  all  tests  except  for  withdrawn 
tests  and  tests  requiring  unsupported  floating-point  preci¬ 
sions  was  taken  on-site  by  the  validation  team  for  process¬ 
ing.  Tests  that  make  use  of  implementation-specific  values 
were  customized  before  being  written  to  the  magnetic  tape. 
Tests  requiring  splits  during  the  prevalidation  testing  were 
included  in  their  split  form  on  the  magnetic  tape. 

The  contents  of  the  magnetic  tape  were  loaded  directly  onto 
the  host  computer . 

After  the  test  files  were  loaded  to  disk,  the  full  set  of 
tests  was  compiled  on  the  VAX  8500,  and  all  executable  tests 
were  linked  and  executed  on  the  target.  Results  were  printed 
from  the  target  computer. 

The  compiler  was  tested  using  command  scripts  provided  by 
SYSTEAM  KG  Dr.  Winter stein  and  reviewed  by  the  validation 
team.  The  following  options  were  in  effect  for  testing: 

for  the  B-tests 

ADAV16:  compiler  test-name  options=l ist=>on 
for  all  others 

ADAV16:  compiler  test-name 

Tests  were  compiled,  linked,  and  executed  (as  appropriate) 
using  a  single  host  computer.  Test  output,  compilation 
listings,  and  job  logs  were  captured  on  magnetic  tape  and 
archived  at  the  AVF.  The  listings  examined  on-site  by  the 
validation  team  were  also  archived. 
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This  is  a  short  example  of  the  command  script  used  to  run 
the  tests. 
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ne/uS'if  s y  r.  i  o  1 1  i, 1. 1  '  L i;  s  t n  imv  '  .  i  v-  > 

'  t  O  S  t  il  :  •'  ft  ' 

tO  '  t  l!  .  t.  II  .  ...  i  '  .  A  .  j 

-  f  'I  v  ■  r  I  t  y  i  v  -  i  i  ) 

r  _  x  it  : 

'•  s  v  «.  ;  ■)  i  f  •!  t.  "  >  :>  >  '  ,  i  ■  i  k  .  i  i,o'  r  <.  t  t  _  r  n 

1st ^riii  t  "  l  . .  . .  I  i  >i.  >  ii  j  J  *  •  i  i  r  i;  :  . 

=  f  i  v  •  •  r  i  t  y  (  v  r  i  ) 


Oi  Cu  .*  ul  t 


In  t.  c 
t  :  I  •:  I  I 


ii  nor. 

it'  i  <_  t * 


Illy 

l  .  ... 


I  I  ; :  «  o  •.  J  J  .  Y 
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DECLARATION  OF  CONFORMANCE 

Compiler  Implementer:  SYSTEAM  KG  Dr.  Winterstein 

Ada  Validation  Facility:  IABG 

Ada  Compiler  Validation  Capability  (ACVC)  Version:  1.8 

Base  Configuration 

Base  Compiler  Name:  S YSTEAM/German  MoD  VAX/VMS  Ada  Compiler 

Vers  ion  1 . 6 

Host  Architecture  ISA:  VAX  8500  OS&VER  No:  VMS  4.5 

Target  Architecture  ISA:  VAX  8500  OS&VER  No:  VMS  4.5 

Implementer ' s  Declaration 

I,  the  undersigned,  representing  SYSTEAM  KG  have  implemented 
no  deliberate  extensions  to  the  Ada  Language  Standard 
ANSI / MIL- STD- 181 5 A  in  the  compiler  listed  in  this  declara¬ 
tion.  I  declare  that  SYSTEAM  KG  i s  the  owner  of  record  of 
the  Ada  language  compiler  listed  above  and,  as  such, is 
responsible  for  maintaining  said' compiler  in  conformance  to 
ANSI /MIL- STD- 181 5A.  All  certificates  and  registrations  for 
Ada  language  compiler  listed  in  this  declaration  shall  be 
made  only  in  the  owner's  corporate  name. 


Karlsruhe,  den  06.02.87 


Owner's  Declaration 


I,  the  undersigned,  representing  SYSTEAM  KG  take  full 
responsibility  for  implementation  and  maintenance  of  the  Ada 
compiler  listed  above,  and  agree  to  the  public  disclosure  of 
the  final  Validation  Summary  Report.  I  further  agree  to  con¬ 
tinue  to  comply  with  the  Ada  trademark  policy,  as  defined  by 
the  Ada  Joint  Program  Office.  I  declare  that  all  of  the  Ada 
language  compiler  listed,  and  their  host/target  performance 
are  in  compliance  with  the  Ada  Language  Standard  ANSI/MIL- 
STD-1815A.  I  have  reviewed  the  Validation  Summary  Report  for 
the  compiler  and  concur  with  the  contents. 


Karlsruhe,  den  06.02.87 


APPENDIX  B 


APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to 
implementation-  dependent  pragmas,  to  certain  machine- 
dependent  conventions  as  mentioned  in  chapter  13  of  MIL- 
STD-181SA,  and  to  certain  allowed  restrictions  on  represen¬ 
tation  classes.  The  implementation-dependent  characteristics 
of  the  SYSTEAM  German  MoD  VAX-VMS  Ada  Compiler,  Version 
VI. 6,  are  described  in  the  following  sections  which  discuss 
topics  in  Appendix  F  of  the  Ada  Language  Reference  Manual 
( ANSI/MIL-STD-1815A) .  The  specification  of  the  package  STAN¬ 
DARD  is  also  included  in  this  appendix. 


Ada  Compiler  User  Manual 


PACKAGE  standard  IS 

TYPE  boolean  IS  (false,  true); 

TYPE  short .integer  IS  RANGE  -  32_768  ..  32_767; 

TYPE  integer  IS  RANGE  -  2_147_483_648  ..  2_147_483_647 ; 

TYPE  Short.float  IS  DIGITS  6  RANGE 

-  16*0 . 7FFF_FF8*E+32  .. 

16*0 . 7FFF_FF8*E+32 ; 

TYPE  float  IS  DIGITS  9  RANGE 

-  16*0 . 7FFF_FFFF_FFFF_FF8*E+32  .. 

16*0 . 7FFF_FFFF_FFFF__FF8*E+32 ; 

TYPE  oharaoter  IS 


(mil. 

££h. 

stx. 

fit 2. 

eai. 

enq. 

aak. 

hfil. 

bs  . 

hi  , 

If  . 

Yl  . 

ff  . 

an  . 

aa  . 

ai  . 

dla. 

dal. 

do2 . 

dQ5, 

dal. 

nak. 

SYS. 

etb. 

can. 

am  . 

sub. 

eso. 

f a  . 

££  . 

ra  . 

ua  . 

/  t 

9 

'  I ' , 

1  t*  i 

9 

'*' . 

'$' . 

'%' . 

'cr , 

iii 

9 

'('. 

•  *  • 

9 

9  9 

t _  t 

9 

'/'  . 

'0'  . 

'i'. 

'2'  , 

'3', 

'  4 '  . 

'5'  , 

'6'  , 

'7'  , 

'8'  . 

'9'  . 

•  •  t 
•  f 

4  •  * 

9  9 

l  c  i 

9 

'  >  *  9 

'7'  , 

'A'  , 

'B'  , 

'C' , 

'D'  , 

'E'  , 

'F'  , 

'G'  , 

'H'  , 

'I'  . 

'J'. 

'K'  , 

'L'  , 

'M'  , 

'N'  , 

'O'  , 

'P'  . 

'Q'. 

'R'  . 

'S'. 

'T'  , 

'U'  , 

'V'  , 

'W'  , 

'X'  . 

'Y‘  . 

'Z'  . 

(  A  / 

9 

l  l 

-  9 

Ilf 

f 

'a' . 

'b' , 

'O'  , 

'd' . 

'e' , 

'f  '  . 

'g'. 

'h' . 

'i'  . 

'  J  ' . 

'k' . 

'1' . 

'm'  , 

'n'  , 

'o', 

'P'. 

'q'. 

'r' , 

's' , 

't' . 

'u' , 

'v'  , 

'w'  , 

'x' , 

'Y'. 

'z', 

'  i  ' . 

9  1 

*  9 

dal) 

FOR  oharaoter  USE  —  ASCII  oharaoters  without  holes 
(0  .1  ,2  ,3  ,4  ,5  ,6  ,7  , 


8 

9 

9 

9 

10 

11 

9 

12 

9 

13 

9 

14 

9 

15 

16 

9 

17 

9 

18 

19 

9 

20 

9 

21 

9 

22 

9 

23 

24 

9 

25 

9 

26 

27 

9 

28 

9 

29 

9 

30 

9 

31 

32 

9 

33 

9 

34 

35 

9 

36 

9 

37 

9 

38 

9 

39 

40 

9 

41 

9 

42 

43 

9 

44 

9 

45 

9 

46 

9 

47 

48 

9 

49 

9 

50 

51 

9 

52 

9 

53 

9 

54 

9 

55 

56 

9 

57 

9 

58 

59 

9 

60 

9 

61 

9 

62 

9 

63 

64 

9 

65 

9 

66 

67 

9 

68 

9 

69 

9 

70 

9 

71 

72 

9 

73 

9 

74 

75 

9 

76 

9 

77 

9 

78 

9 

79 

80 

9 

81 

9 

82 

83 

9 

84 

9 

85 

9 

86 

9 

87 
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88  , 

89  , 

90  , 

91  ,  92  ,  93  , 

94  , 

95  , 

96  , 

97  . 

98  , 

99  ,  100,  101. 

102, 

103, 

104, 

105, 

106, 

107,  108,  109, 

110, 

111. 

112, 

113, 

114, 

115,  116,  117, 

118, 

119, 

120, 

121, 

122, 

123,  124,  125, 

126, 

127) 

PACKAGE  asoii  IS 


—  Control  oharaoters: 


nul 

CONSTANT 

oharaoter 

- 

nul; 

s  oh 

CONSTANT 

oharaoter 

- 

eoh; 

etx 

CONSTANT 

oharaoter 

- 

etx: 

etx 

CONSTANT 

oharaoter 

- 

ext: 

eot 

CONSTANT 

oharaoter 

- 

eot : 

enq 

CONSTANT 

oharaoter 

- 

enq: 

aok 

CONSTANT 

oharaoter 

- 

aok: 

bel 

CONSTANT 

oharaoter 

- 

bel: 

be 

CONSTANT 

oharaoter 

- 

h£ 

ht 

CONSTANT 

oharaoter 

- 

ht 

If 

CONSTANT 

oharaoter 

- 

If 

vt 

CONSTANT 

oharaoter 

- 

Yt 

ff 

CONSTANT 

oharaoter 

- 

ff 

or 

CONSTANT 

oharaoter 

- 

S2X 

so 

CONSTANT 

oharaoter 

- 

SQ 

si 

CONSTANT 

oharaoter 

- 

Si 

die 

CONSTANT 

oharaoter 

- 

die 

dol 

CONSTANT 

oharaoter 

- 

dol 

do2 

CONSTANT 

oharaoter 

- 

do2 

do3 

CONSTANT 

oharaoter 

- 

do5 

do4 

CONSTANT 

oharaoter 

- 

dol 

nak 

CONSTANT 

oharaoter 

- 

nak 

syn 

CONSTANT 

oharaoter 

- 

syn 

etb 

CONSTANT 

oharaoter 

- 

etb 

oan 

CONSTANT 

oharaoter 

- 

oan 

em 

CONSTANT 

oharaoter 

- 

em 

sub 

CONSTANT 

oharaoter 

- 

sub; 

eso 

CONSTANT 

oharaoter 

- 

ess; 

fs 

CONSTANT 

oharaoter 

- 

fs 

gs 

CONSTANT 

oharaoter 

- 

gs 

rs 

CONSTANT 

oharaoter 

- 

rs 

us 

CONSTANT 

oharaoter 

- 

us 

del 

CONSTANT 

oharaoter 

- 

del; 

—  Other  oharaoters : 

exolam  :  CONSTANT 

oharaoter 

'  I 

quotation 

CONSTANT 

oharaoter 

- 

t  N 

K 
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sharp 

dollar 

peroent 

ampersand 

oolon 

semioolon 

query 

at_sign 

l_braoket 

baok_slash 

r_braoket 

oiroumflex 

underline 

grave 

l_brace 

bar 

r_braoe 

tilde 
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CONSTANT  oharaoter 

- 

CONSTANT  oharaoter 

-  '$' 

CONSTANT  oharaoter 

-  '%' 

CONSTANT  oharaoter 

-  'cr 

CONSTANT  oharaoter 

tm  9  *  1 

CONSTANT  oharaoter 

_  •  .  • 

9 

CONSTANT  oharaoter 

-  '?' 

CONSTANT  oharaoter 

-  '©' 

CONSTANT  oharaoter 

-  '[' 

CONSTANT  oharaoter 

-  'V 

CONSTANT  oharaoter 

-  ']' 

CONSTANT  oharaoter 

t  *  * 

CONSTANT  oharaoter 

t  i 

CONSTANT  oharaoter 

t  \  t 

CONSTANT  oharaoter 

- 

CONSTANT  oharaoter 

-  '  1 ' 

CONSTANT  oharaoter 

- 

CONSTANT  oharaoter 

I  w  / 

—  Lower  oase  letters: 


lo_a 

CONSTANT  oharaoter 

-  'a' 

lo_b 

CONSTANT  oharaoter 

-  'b' 

lo_o 

CONSTANT  oharaoter 

-  'o' 

lo_d 

CONSTANT  oharaoter 

-  'd' 

lo_e 

CONSTANT  oharaoter 

-  'e' 

lo_f 

CONSTANT  oharaoter 

-  'f' 

lo_g 

CONSTANT  oharaoter 

-  'g' 

lo_h 

CONSTANT  oharaoter 

-  'h' 

lo  i 

CONSTANT  oharaoter 

-  '1' 

lo_J 

CONSTANT  oharaoter 

-  'y 

lo  k 

CONSTANT  oharaoter 

-  'k' 

lo_l 

CONSTANT  oharaoter 

-  '1' 

lo_m 

CONSTANT  oharaoter 

-  'm' 

lo_n 

CONSTANT  oharaoter 

-  'n' 

lo_o 

CONSTANT  oharaoter 

-  'o' 

lo_p 

CONSTANT  oharaoter 

-  'P' 

lo_q 

CONSTANT  oharaoter 

-  'q' 

lo_r 

CONSTANT  oharaoter 

-  'r' 

lo_s 

CONSTANT  oharaoter 

-  's' 

lo_t 

CONSTANT  oharaoter 

-  't' 

lo_u 

CONSTANT  oharaoter 

-  'u' 

lo_v 

CONSTANT  oharaoter 

-  'V' 

lo_w 

CONSTANT  oharaoter 

-  'V' 

lo_x 

CONSTANT  oharaoter 

-  'X' 

lo_y 

CONSTANT  oharaoter 

-  'Y' 

lo_z 

CONSTANT  oharaoter 

-  'z' 

END  asoii; 
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; 

s 

rs 

i* 

«• 

»« 


fUh 


>5: 


ssa 


08 


it 


S99 


i 


I 

.•X* 

S® 

il 
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—  Predefined  subtypes: 


SUBTYPE  natural  IS  integer  RANGE  0  ..  integer ' last ; 
SUBTYPE  positive  IS  integer  RANGE  1  ..  integer ' last ; 


—  Predefined  string  type: 


TYPE  string  IS  ARRAY  (positive  RANGE  < > )  OF  oharaoter; 


PRAGMA  paok  (string); 


TYPE  duration  IS  DELTA  2#1.0#E-14  RANGE 

-  131_072 . 0  ..  131_071.999_938_964_843_75; 


—  The  predefined  exoeptions: 


oonstraint_error 

numerio_error 

program_error 

storage_error 

tasking_error 


EXCEPTION 

EXCEPTION 

EXCEPTION 

EXCEPTION 

EXCEPTION 


END  standard; 


The  following  predefined  library  units  are  inoluded  in  eaoh 
newly  oreated  program  library: 


The  paokage  SYSTEM 
The  paokage  CALENDAR 

The  generio  prooedure  UNCHECKED_DEALLOCATION 

The  generio  funotion  UNCHECKED_CONVERSION 

The  paokage  IO_EXCEPTIONS 

The  generio  paokage  SEQUENTIAL_IO 

The  generio  paokage  DIRECT_IO 

The  paokage  TEXT_IO 

The  paokage  LOW_LEVEL_IO 


"■< ,'.T»r  :  ."r  '  r*v  ,  ■ 


■*-. 1  .■ 
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9  IMPLEMENTATION-DEPENDENT  CHARACTERISTICS 

This  ohapter  corresponds  to  Appendix  F  of  the  Ada  Language 
Referenoe  Manual,  whioh  desoribes  all  implementation-dependent 
oharaoteristios . 


9. 1  Implementation-Dependent  Pragmas 
INLINE  - 

inline  inolusion  is  never  done 
INTERFACE  - 

is  Implemented  for  ASSEMBLER 
SQUEEZE  - 

takes  the  same  argument  as  the  predefined  language  pragma 
PACK  and  is  allowed  at  the  same  positions.  It  oauses  the 
oompiler  to  select  a  representation  for  the  argument-type 
that  needs  minimal  storage  spaoe.  By  oontrast,  the  pragma 
PACK  only  leads  to  representations  whioh  oause  oomponents 
of  objeots  of  its  argument -types  to  start  on 
storage-unit-bounds. 

SUPPRESS_ALL  - 

oauses  that  all  oheoks  that  may  raise  CONSTRAINT_ERROR  at 
run-time  are  suppressed;  this  pragma  is  only  allowed  at  the 
start  of  a  compilation  before  the  first  compilation  unit; 
it  applies  to  the  whole  oompllatlon 


9.2  Implementation-Dependent  Attributes 
HEAP_ADDRESS  - 

applied  to  an  aooess  type  yields  a  value  of  type  ADDRESS 
(from  paokage  SYSTEM).  This  attribute  is  only  for  Internal 
use  within  the  paokage  COLLECTION_MANAGER. 


■r 
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9.3  Speolfloatlon  of  the  Paokage  SYSTEM 
PACKAGE  system  IS 

TYPE  address  IS  PRIVATE; 

TYPE  name  IS  (vax_730,  vax_750,  vax_780, 


vax_782) ; 


system_name 

storage_unit 

memory_slze 

min_int 

max_lnt 

max_dlgits 

max_mantlssa 

flne_delta 

tiok 


CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 


name  vax_750; 

8; 

2  *•  31; 

: -  2_147_483_648; 

2_147_483_647 ; 

9; 

31; 

2# 1 . 0*E-30 ; 
0.2E-6; 


SUBTYPE  priority  IS  integer  RANGE  0  ..  255; 
SUBTYPE  external_address  IS  string; 


SUBTYPE  byte  IS  integer  RANGE  0..255; 

TYPE  long_word  IS  ARRAY  (0..3)  OF  byte; 
PRAGMA  PACK  (long_Vord); 


FUNCTION  oonvert_address  (addr  :  external_address) 

RETURN  address ; 


FUNCTION  oonvert__address  (addr  :  address) 

RETURN  external_address ; 


FUNCTION  oonvert_address  (addr  :  long_word) 

RETURN  address; 


FUNCTION  oonvert_address  (addr  :  address) 

RETURN  long_word; 


K 


FUNCTION  •+"  (addr  :  address; 

offset  :  integer) 
RETURN  address; 


PRIVATE 

—  private  declarations 
END  system; 
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External  addresses  are  represented  as  strings  consisting  of 
hexadeoimal  digits. 

Sinoe  the  type  ADDRESS  is  private,  no  representation 
specifications  for  objeots  of  this  type  oan  be  given.  If 
representation  specifications  for  addresses  are  required, 
objeots  of  type  LONG_WORD  oan  be  used  to  hold  address  values. 

Overloaded  functions  CONVERT_ADDRESS  are  defined  to  allow 
conversion  between  the  different  represenations  of  addresses. 


30 
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9 . 4  Restrlotlons  on  Representation  Clauses 

Address  olauaes  are  only  Implemented  for  objeots. 

The  value  given  in  a  speoif ioation  of  small  for  a  fixed  point 
type  must  be  a  power  of  two . 


9.5  Conventions  for  Implementation-Generated  Names 

There  are  no  implementation-generated  names  denoting 

implementation-dependent  components . 


9.6  Interpretation  of  Address  Clauses 

An  objeot  for  whioh  an  address  speolfioatlon  is  given  must  not 
require  an  initialization  (neither  expliolt  nor  lmpllolt). 
Otherwise  the  program  is  erroneous. 

The  objeot  starts  at  the  given  address.  For  objeots  aooessed 
by  a  desoriptor.  the  descriptor  starts  at  the  given  address. 


9.7  Restrictions  on  Unchecked  Conversions 
If 


TARGET 'SIZE  >  SOURCE 'SIZE 

the  result  value  of  the  unoheoked  conversion  is  unpredictable. 


9.8  Charaoterlstlos  of  the  Input-Output  Packages 
9.8.1  The  NAME  Parameter 

The  string  must  be  a  VMS  file  speolfioatlon  string.  The 
funotion  NAME  will  return  a  file  speolfioatlon  string 
(inoluding  version  number)  whioh  is  the  resultant  filename  of 
the  file  opened  or  oreated. 

The  exoeptlon  NAME_ERROR  is  raised  if  the  name  parameter  is  not 
a  legal  VMS  file  speolfioatlon  string;  for  example,  if  it 
oontalns  illegal  oharaoters,  is  too  long  or  is  syntaotloally 
lnoorreot .  The  file  speolfioatlon  string  must  not  oontain  wild 
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oards  even  if  an  unique  file  Is  speoified;  otherwise  the 
exoeption  NAME_ERROR  is  raised. 

In  an  OPEN  operation  the  exeoptlon  NAME_ERROR  is  also  raised  if 
the  speoified  file  does  not  exist;  in  a  CREATE  operation  this 
exoeption  is  raised  if  the  NAME  string  oontains  an  explioit 
version  number  and  the  speoified  file  already  exists. 


9.8.2  The  FORM  Parameter 
9.8.2. 1  The  Syntax  of  the  FORM  string 
f orm_parameter  :  :  - 

[  form_speoifioatlon  {  .  form_speoifioation  }  ] 
form_speoifioation  keyword  ->  value 

keyword  identifier 

value  : identifier  t  strlng_literal  I  numerlo_llteral 


For  identifier,  numerio_literal .  string_literal  see  LRM 
Appendix  E.  Only  an  integer  literal  is  allowed  as 
numerio_literal  (see  LRM  2.4). 

The  exoeption  USE_ERROR  is  raised  if  a  given  FORM  paramter 
String  does  not  have  the  oorreot  syntax  or  if  a  oondition  on  a 
single  form  specification  described  in  the  following  sections 
is  not  fulfilled. 


9. 8. 2. 2  General  Form  Specifications 

In  the  following,  the  form  specifications  whioh  are  allowed  for 
all  files  are  described. 


ALLOCATION  ->  numerlo_literal 

This  value  specifies  the  number  of  blooks  whioh  are  allocated 
Initially;  it  is  only  used  in  a  oreate  operation  and  ignored  in 
an  open  operation.  The  value  of  allocation  in  the  form  string 
returned  by  the  funotion  form  specifies  the  initial  allocation 
size  for  existing  files  too. 
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EXTENSION  ->  numerio_llteral 

This  value  speoifles  the  number  of  blooks  by  vhioh  a  file  is 
extended  if  neoessary;  the  value  0  means  that  the  RMS  default 
value  is  taken.  For  existing  files  this  value  is  only  used  for 
prooessing  between  an  open  and  a  olose  operation. 


For  details  see  the  VAX-1 l  /  RMS  Referenoe  Manual. 


9.8.3  XfiXt-I/Q 

9.8.3. 1  Implementation  Dependent  Types 

The  implementation  dependent  types  COUNT  and  FIELD  defined  in 
the  paokage  speoifioation  of  TEXT_IO  have  the  following  upper 
bounds  : 

COUNT 'LAST  -  2_147_483_647  (-  INTEGER ' LAST) 

FIELD' LAST  -  255 


Text  files  are  represented  as  sequential  files  with  variable 
reoord  format.  One  line  is  represented  as  a  sequenoe  of  one  or 
more  reoords;  all  reoords  exoept  from  the  last  one  have  a 
length  of  exaotly  MAX_RECORD__SIZE. 

A  line  terminator  is  not  represented  explicitly  in  the  external 
file;  the  end  of  a  reoord  vhioh  is  shorter  than  MAX_RECORD_SIZE 
is  taken  as  a  line  terminator.  The  value  MAX_RECORD_SIZE  may 
be  speoified  by  the  form  string  for  an  output  file  and  it  is 
taken  from  the  external  file  for  an  input  file;  for  all  files 
the  value  0  stands  for  the  default  of  253. 

A  page  terminator  is  represented  as  reoord  oonsisiting  of  a 
single  ASCII. FF.  A  reoord  of  length  zero  is  assumed  to  preoede 
a  page  terminator  if  the  reoord  before  the  page  terminator  is 
another  page  terminator  or  a  reoord  of  length  MAX_RECORD_SIZE; 
this  implies  that  a  page  terminator  is  preoeded  by  a  line 
terminator  in  all  oases. 

A  file  terminator  is  not  represented  explioitly  in  the  external 
file;  the  end  of  the  file  is  taken  as  a  file  terminator.  A 
page  terminator  is  assumed  to  preoede  the  end  of  the  file  if 
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there  is  not  explicitly  one  as  the  last  reoord  of  the  file. 
For  input  from  a  terminal,  a  file  terminator  is  represented  as 
ASCII. SUB  (-  CTRL  Z). 

In  the  following,  the  form  speoifioations  whioh  are  only 
allowed  for  text  files  are  desoribed. 


Only  for  output  files  : 

MAX_RECORD_SIZE  ->  numerio_literal 

This  value  speoifies  the  maximum  length  of  a  reoord  in  the 
external  file.  Eaoh  reoord  whioh  is  not  the  last  reoord  of  a 
line  has  exaotly  this  maximum  reoord  size.  The  value  must  be 
in  the  range  from  1  up  to  255.  If  a  file  is  oreated  with  a 
maximum  reoord  size  different  from  the  default  of  255,  the 
external  file  gets  the  speoified  value  as  maximum  reoord  size; 
otherwise,  the  external  file  gets  the  value  0  as  maximum  reoord 
size  (no  explicit  maximum  reoord  size).  If  the  value  is 
specified  for  an  existing  file  it  must  be  oonform  with  the 
value  of  the  external  file. 


-  END_OF_FILE 

If  the  keyword  END_OF_FILE  is  speoified  for  an  existing  file  in 
an  open  for  an  output  file  then  the  file  is  opened  at  the  end 
of  the  file;  l.e.  the  existing  file  is  extended  and  not 
rewritten.  This  keyword  is  only  allowed  for  an  output  file;  it 
only  has  an  effeot  in  an  open  operation  and  is  ignored  in  a 
create. 


Only  for  input  files  : 

-  PROMPTING  -»  strlng_llteral 

This  string  is  output  on  the  terminal  before  an  input  reoord  is 
read  if  the  input  file  is  assoolated  with  a  terminal;  otherwise 
this  form  speoifioation  is  ignored. 

The  default  form  string  for  an  input  text  file  is  : 

•ALLOCATION  ->  3,  EXTENSION  ->  0,  PROMPTING  ->•"“* 


The  default  form  string  for  an  output  text  file  is  : 
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“ALLOCATION  ->  3.  EXTENSION  -►  0,  MAX_RECORD_SIZE  ->  255' 


-  CHARACTER  10 


In  addition  to  the  input/output  faollities  with  reoord 
struotured  external  files,  another  form  of  input /output  is 
provided  for  text  files:  It  is  possible  to  transfer  single 
oharaoters  from/to  a  terminal  devioe .  This  form  of 
input/output  is  speoified  by  the  keyword  CHARACTER_IO  in  the 
form  string.  If  oharaoter  i/o  is  speoified,  no  other  form 
speoif ioation  is  allowed  and  the  file  name  must  denote  a 
terminal  devioe. 


For  an  infile  the  external  file  (assooiated  with  a  terminal)  is 
considered  to  oontain  a  single  line.  An  ASCII. SUB  (-  CTRL  Z) 
oharaoter  represents  an  line  terminator  followed  by  a  page 
terminator  followed  by  a  file  terminator.  Arbitrary  oharaoters 
(inoluding  all  control  oharaoters  exoept  from  ASCII. SUB)  may  be 
read;  a  oharaoter  read  is  not  eohoed  to  the  terminal. 


For  an  outfile,  arbitrary  oharaoters  (inoluding  all  control 
oharaoters  and  escape  sequenoes)  may  be  written  on  the  external 
file  (terminal).  A  line  terminator  is  represented  as  ASCII. CR 
followed  by  ASCII. LF,  a  page  terminator  is  represented  as 
ASCII. FF  and  a  file  terminator  is  not  represented  on  the 
external  file. 


9. 8. 3. 3 


The  standard  input  (resp.  output)  file  is  assooiated  with 
SYSSINPUT  (resp.  SYSJOUTPUT).  If  a  program  reads  from  the 
standard  input  file,  the  logloal  name  SYSJINPUT  must  denote  an 
existing  file.  If  a  program  writes  to  the  standard  output 
file,  a  file  with  the  logloal  name  SYSSOUTPUT  Is  oreated  if  no 
suoh  file  exists;  otherwise  the  existing  file  is  extended. 


The  qualifiers  /INPUT  and  /OUTPUT  may  be  used  for  the  VMS  RUN 
oommand  to  assoolate  VMS  files  with  the  standard  files  of 
TEXT  10. 


The  name  and  form  strings  for  the  standard  files  are  : 


standard_lnput  :  NAME  ->  “SYS$ INPUT:" 

FORM  ->  "PROMPTING  -> 


standard_output  :  NAME  ->  " SYSSOUTPUT: “ 

FORM  -»  "MAX_RECORD_SIZE  ->  255“ 
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9.8.4  Sequential  and  Dlreot  Files 

Sequential  and  direct  files  are  represented  by  RMS  sequential, 
relative  or  indexed  files  with  fixed-length  or  variable-length 
reoords.  Eaoh  element  of  the  file  Is  stored  in  one  reoord. 


0.8.4. l  Restrlotlons  Conoerning  the  element  type 

input/output  of  aooe6S  types  is  not  defined. 

the  attribute  ADDRESS  applied  to  an  objeot  of  the 
element  type  must  speoify  the  start  address  of  the 
value  of  the  objeot  (not  the  address  of  a  descriptor). 

-  input/output  Is  not  possible  for  an  objeot  whose  start 
address  is  not  byte  aligned  (may  only  ooour  if  a 
representation  speolfloation  is  given). 


the  attribute  SIZE  applied  to  an  objeot  of  the  element 
type  must  deliver  the  number  of  bits  allooated 
oontiguously  in  the  memory  for  the  objeot;  this  value 
must  be  a  multiple  of  SYSTEM .  STORAGE_UNIT .  For 
example,  objeote  of  reoord  types  with  dynamic  array 
oomponents  are  not  stored  oontiguously. 

if  a  fixed  reoord  format  is  used,  all  objeots  to  be 
input  or  output  must  have  the  same  size 
(ELEMENT_TYPE ' SIZE)  . 

input/output  of  elements  of  an  unoonstralned  array 
type  is  only  possible  for  files  with  variable-length 
reoords. 

for  RMS  sequential  [relative]  files  the  size  of  an 
objeot  to  be  input  or  output  must  not  be  greater  than 
32767  [16383]. 


9.8.4. 2  Sequential  Files 

A  sequential  file  is  represented  by  a  RMS  sequential  file  with 
either  fixed-length  or  variable-length  reoords  whioh  may  be 
epeolfied  by  the  form  parameter. 


MAX_RECORD_SIZE  ->  numerio_llteral 
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This  value  speoifies  the  maximum  reoord  size  in  bytes;  the 
value  0  indicates  that  there  is  no  limit.  This  form 
speoif ioation  is  only  allowed  for  files  with  variable  reoord 
format.  if  the  value  is  speoified  for  an  existing  file,  it 
must  agree  with  the  value  of  the  external  file.  For  files  with 
fixed-length  reoords.  the  maximum  reoord  size  equals 
ELEMENT_TYPE ' SIZE  /  SYSTEM . STORAGE_UNIT . 


-  RECORD  .FORMAT  ->  VARIABLE  I  FIXED 

This  form  speoif ioation  is  used  to  speoify  the  reoord  format. 
If  the  format  is  speoified  for  an  existing  file,  it  must  equal 
the  format  of  the  external  file. 
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-  END_OF_FILE 

If  the  keyword  END_OF_FILE  is  speoified  for  an  existing  file  in 
an  open  for  an  output  file,  then  the  file  is  opened  at  the  end 
of  the  file;  i.e.  the  existing  file  is  extended  and  not 
rewritten.  This  keyword  is  only  allowed  for  an  output  file;  it 
only  has  an  effeot  in  an  open  operation  and  is  Ignored  in  a 
oreate . 


The  default  form  string  for  a  sequential  file  is  : 

“ALLOCATION  ->  3,  EXTENSION  ->  0.  " 

“REC0RD_F0RMAT  -*  VARIABLE,  MAX_RECORD_SIZE  ->  0  " 


9. 8.4. 3  Direct  Files 

The  implementation  dependent  type  COUNT  defined  in  the  paokage 
speolfioatlon  of  DIRECT_IO  has  an  upper  bound  of  : 

COUNT 'LAST  -  2_147_483_647  (-  INTEGER 'DAST) 


Dlreot  files  are  represented  by  RMS  sequential  files  with 
fixed-length  records  or  by  relative  or  indexed  files  with 
either  fixed-length  or  variable-length  records.  For  Indexed 
files,  the  reoord  index  is  stored  as  unsigned  four  bytes  binary 
value  in  the  first  four  bytes  of  eaoh  reoord.  If  not 
explicitly  speoified,  the  maximum  reoord  size  equals 
ELEMENT_TYPE ' SIZE  /  SYSTEM . STORAGE_UNIT. 


BUCKET_SIZE  ->  numerlo_llteral 

This  value  speolfies  the  number  of  blooks  (one  blook  is  812 
bytes)  for  one  buoket;  the  value  0  means  that  the  value  is 
evaluated  by  RMS  to  the  minimal  number  of  blooks  whioh  is 
neoessary  to  oontaln  one  reoord.  The  value  must  be  in  the 
range  from  0  up  to  32.  This  form  speolfioatlon  is  only  allowed 
for  relative  or  Indexed  files.  If  the  value  is  speoified  for 
an  existing  file  it  must  agree  with  the  value  of  the  external 
file. 
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-  MAX_RECORD_SIZE  - >  numerlo_literal 

This  value  speoifies  the  maximum  reoord  size  in  bytes.  The 
value  0  which  indicates  that  there  is  no  limit  is  only  allowed 
for  indexed  files.  A  positive  value  must  be  greater  or  equal 
to  ELEMENT_TYPE  *  SIZE  /  SYSTEM . STORAGE_UNIT .  This  form 

speoif ioation  is  only  allowed  for  files  with  variable  reoord 
format.  If  the  value  is  speolfied  for  an  existing  file  it  must 
agree  with  the  value  of  the  external  file. 

RECORD_FORMAT  ->  VARIABLE  I  FIXED 

This  form  speoif ioation  is  used  to  speolfy  the  reoord  format. 
If  the  format  is  speoif led  for  an  existing  file  it  must  equal 
the  format  of  the  external  file. 

-  ORGANIZATION  ->  INDEXED  I  RELATIVE  I  SEQUENTIAL 

This  form  speoif  ioation  is  used  to  speoify  the  file 
organization.  If  the  organization  is  speolfied  for  an  existing 
file  it  must  equal  the  organization  of  the  external  file. 

The  default  form  string  for  a  dlreot  file  is  : 

“ALLOCATION  -  >  3,  EXTENSION  ->  0,  “  ft 

"ORGANIZATION  ->  SEQUENTIAL,  RECORD_FORMAT  ->  FIXED" 


9.8.5  General  Limitations 

The  total  number  of  open  files  (inoluding  the  two  standard 
files)  must  not  be  greater  than  18.  An  attempt  to  exoeed  this 
limit  raises  the  exoeption  USE_ERROR . 


9.8.6 


The  only  form  of  file  sharing  whioh  is  allowed  is  shared 
reading.  If  two  or  more  files  are  assooiated  with  the  same 
external  file  at  one  time  (regardless  of  whether  these  files 
are  deolared  in  the  same  program  or  task) ,  all  of  these 
(internal)  files  must  be  opened  with  the  mode  IN_FILE .  An 
attempt  to  open  one  of  these  files  with  another  mode  than 
IN_FILE  will  raise  the  exoeption  USE_ERROR . 


is*. 
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Files  associated  with  terminal  devioes  (whioh  is  only  legal  for 
text  files)  are  exoepted  from  this  restriction.  Suoh  files  may 
be  opened  with  an  arbitrary  mode  at  the  same  time  and 
assooiated  with  the  same  terminal  devloe . 


9.8.7  Exoeptions  in  Input -Output 

Besides  the  situations  desoribed  in  9.8.1  and  9.8.2  under  whioh 
NAME_ERROR  and  USE_ERROR  may  be  raised,  in  the  following 
additional  conditions  are  listed  under  whioh  one  of  the 
exoeptions  NAME_ERROR ,  USE_ERROR.  DEVICE_ERROR  or  DATA_ERROR  is 
raised. 

The  exception  USE_ERROR  is  raised  if  the  oharaoteristios  of  the 
external  file  are  not  appropriate  for  the  file  type;  for 
example,  if  the  reoord  size  of  a  file  with  fixed-length  reoords 
does  not  oorrespond  to  the  size  of  the  element  type  of  a 
direot_io  or  sequential_io  file.  USE_ERROR  is  also  raised  if 
the  funotlon  NAME  is  applied  to  a  temporary  file. 

In  general  it  is  only  guaranteed  that  a  file  whioh  is  oreated 
by  an  Ada  program  may  be  reopened  ,by  another  program  if  the 
file  types  and  the  form  strings  are  the  same. 

The  exception  DEVICB_ERROR  is  never  raised.  Instead,  of  this 
exoeption  the  exoeption  OSEJBRROR  is  raised  whenever  an  error 
ooourred  during  an  operation  of  the  underlying  RMS  system. 
This  may  happen  if  an  internal  error  was  deteoted,  an  operation 
Is  not  possible  for  reasons  depending  on  the  file  or  devloe 
oharaoteristios.  a  size  restriction  is  violated,  a  oapaolty 
limit  is  exoeeded  or  for  similar  reasons. 

The  exoeption  DATA_ERROR  is  raised  by  the  procedure  READ  if  the 
size  of  the  element  in  the  external  file  to  be  read  differs 
from  the  storage  size  of  the  given  variable;  this  may  only 
happen  if  a  variable  reoord  size  is  used.  This  exoeption  is 
raised  too  if  an  element  with  the  specified  position  in  a 
dlreot  file  does  not  exist;  this  is  only  possible  if  the  file 
is  assooiated  with  a  relative  or  an  Indexed  file. 

In  general,  the  exoeption  DATA_ERROR  is  not  raised  by  the 
prooedure  READ  if  the  element  read  is  not  a  legal  value  of  the 
element  type . 
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9.8.8 


PACKAGE  low  level  io  IS 


TYPE  devioe_type  IS  (null_devioe) : 

TYPE  data_type  IS 
RECORD 
NULL; 

END  RECORD; 

PROCEDURE  send_oontrol  (devioe 

data 

PROCEDURE  reoeive_oontrol  (devioe 

data 

END  low_level_lo; 


:  devioe_type ; 

:  IN  OUT  data_type); 

:  devloe_type ; 

:  IN  OUT  data_type); 


The  main  program  must  be  a  parameterless  library  prooedure 


GENERIC 

TYPE  elem  IS  PRIVATE; 

TYPE  aoo  IS  ACCESS  elem; 
size  :  Integer  100; 

PACKAGE  oolleotion_manager  IS 

PROCEDURE  mark; 

—  Mark  the  heap  of  type  ACC 

PROCEDURE  release; 

—  Deallooate  all  objeots  on  the  heap  of  ACC  which  were 
—  allooated  after  the  last  MARK  operation  for  that  heap 
—  RELEASE  without  previous  MARK  raises  CONSTRAINT_ERROR 

PROCEDURE  reset ; 

—  Deallooate  all  objeots  on  the  heap  of  ACC 


END  oolleotion_manager; 
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The  difference  between  the  number  of  oalls  of  the  procedures 
MARK  and  RELEASE  must  be  in  the  range  0  ..  SIZE.  After  a  call 
of  RESET  the  effeot  of  all  previous  oalls  of  MARK  and  RELEASE 
is  cancelled.  The  oounting  of  the  differenoe  mentioned  above 
starts  from  0. 

The  value  delivered  by  the  attribute  STORAGE_SIZE  applied  to 
the  actual  type  for  ACC  is  meaningless  if  the  Collection 
Manager  is  used. 


y .  1 1  Other  Charaoterlstlos 

9.11.1  Source  Programs 

The  maximum  line  length  is  80.  Longer  lines  are  out  and  an 
error  is  reported. 


9.11.2  Program  Library 

The  maximum  number  of  units  contained  in  a  program  library  is 
2_000.  The  maximum  number  of  imported  units  for  one 
compilation  unit  is  63. 


9.11.3  ADDRESS  and  PRIORITY 

The  package  SYSTEM  must  be  named  by  a  with  olause  of  a 
compilation  unit  if  the  predefined  attribute  ADDRESS  or  the 
predefined  pragma  PRIORITY  is  used  within  that  unit. 


9.11.4  Storage  for  Tasks 

The  memory  epaoe  reserved  for  a  task  is  4K  byte.  If  more  spaoe 
is  needed  by  the  task,  a  length  olause  must  be  given.  The 
aotivatlon  of  a  small  task  requires  about  1.1K  byte. 
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TEST  PARAMETERS 


Certain  tests  in  the  ACVC  make  use  of  implementation- 
dependent  values,  such  as  the  maximum  length  of  an  input 
line  and  invalid  file  names.  A  test  that  makes  use  of  such 
values  is  identified  by  the  extension  .TST  in  its  file  name. 
Actual  values  to  be  substituted  are  represented  by  names 
that  begin  with  a  dollar  sign.  A  value  must  be  substituted 
for  each  of  these  names  before  the  test  is  run.  The  values 
used  for  this  validation  are  given  below. 


Name  and  Meaning 


Value 


$BIG_ID1 

Identifier  the  size  of  the 
maximum  input  line  length  with 
varying  last  character. 


(1. . 79=> ' A' ,80=>  *  1  * ) 


$BIG_ID2 

Identifier  the  size  of  the 
maximum  input  line  length  with 
varying  last  character. 


(1. .  79=> 'A1 , 80= > '2* ) 


$BIG_ID3 

Identifier  the  size  of  the 
maximum  input  line  length  with 
varying  middle  character. 


(1. .40=> ' A’ , 41=> ’ 3 ' ,42. . S0=> 


$BIG_ID4 

Identifier  the  size  of  the 
maximum  input  line  length  with 
varying  middle  character. 


(1. . 40=> ’A* , 41=> ’ 3' ,42. . 80=> 


$BIG_INT_LIT 

An  integer  literal  of  value  298 
with  enough  leading  zeroes  so 
that  it  is  the  size  of  the 
maximum  line  length. 


(1. . 77=> ‘ 0 ’ )&  "298" 


$  B I G_RE AL_L I T 

A  real  literal  that  can  be 
either  of  floating-  or  fixed- 
point  type,  has  value  690.0,  and 
has  enough  leading  zeroes  to  be 
the  size  of  the  maximum  line 
length . 


( 1 . . 7 4=> '0 ' )&  "69.0E1" 


$ BLANKS 

A  sequence  of  blanks  twenty 
characters  fewer  than  the  size 
of  the  maximum  line  length. 


( 1 . . 60=> '  ') 


$COUNT_LAST  : 

A  universal  integer  literal 
whose  value  is  TEXT_IO. COUNT ' LAST. 

$EXTENDED_ASCII_CHARS 

A  string  literal  containing  all 
the  ASCII  characters  with 
printable  graphics  that  are  not 
in  the  basic  55  Ada  character 
set . 

$FIELD_LAST 

A  universal  integer  literal 
whose  value  is  TEXT_IO.  FIELD' LAST. 

$  F I  LE_NAME__W  I  TH_BAD_CHARS 

An  illegal  external  file  namea 
that  either  contains  invalid 
characters,  or  is  too  long  if  no 
invalid  characters  exist. 

$ F I LE_NAME_W I TH_WI LD_C ARD_CHAR 
An  external  file  name  that 
either  contains  a  wild  card 
character,  or  is  too  long  if  no 
wild  card  character  exists. 

$ GRE ATER_T HAN_DURAT I ON 

A  universal  real  value  that  lies 
between  DURATION' BASE ' LAST  and 
DURATION' LAST  if  any,  otherwise 
any  value  in  the  range  of 
DURATION. 

$  GREATER_THAN_DURAT ION_BASE_LAST 

The  universal  real  value  that  is 
greater  than  DURATION' BASE ' LAST, 
if  such  a  value  exists. 

$ I LL EGAL_EXT  E  RN AL_F I LE_N AME 1 

An  illegal  external  file  name. 

$ ILLEGAL_EXTERNAL_FILE_NAME2 

An  illegal  external  file  name 
that  is  different  from 
$ILLEGAL_EXTERNAL_FILE_NAME1 . 

$INTEGER_FIRST 

The  universal  integer  literal 
expression  whose  value  is 
INTEGER' FIRST. 

$  I NTEGER_LAST 

The  universal  integer  literal 


2147483647 


'  "  '  Stlowercase&special  charst 


abc iodef .dat 


ABC*DEF . DAT 


200  000.0 


x$ !  yz .dat 


( 1 . . 60=> ' A ' ) 


-2147483648 


2147483647 


SSSs? 


expression  whose  value  is 
INTEGER' LAST. 


$ LESS_THAN_DURATION 

A  universal  real  value  that  lies 
between  DURATION ' BASE ‘ FIRST  and 
DURATION ' FIRST  if  any,  otherwise 
any  value  in  the  range  of 


$LESS_THAN_DURATION_BASE_FIRST 

The  universal  real  value  that  is 
less  than  DURATION ' BASE ' FIRST, 
if  such  a  value  exists. 

$MAX_DIGITS 

The  universal  integer  literal 
whose  value  is  the  maximum 
digits  supported  for 
floating-point  types. 

$MAX_IN_LEN 

The  universal  integer  literal  1 
whose  value  is  the  maximum 
input  line  length  permitted  by 
the  implementation. 

$MAX_INT 

The  universal  integer  literal 
whose  value  is  SYSTEM .MAX_I NT. 

$NAME 

A  name  of  a  predefined  numeric 
type  other  than  FLOAT,  INTEGER, 

S  HORT_F  LOAT ,  SHORT_INTEGER, 
LONG_FLOAT,  or  LONG_INTEGER 
if  one  exists,  otherwise  any 
undefined  name. 

$NEG__BASED_INT 

A  based  integer  literal  whose 
highest  order  nonzero  bit 
falls  in  the  sign  bit 
position  of  the  representation 
for  SYSTEM. MAX_INT. 

$NON_ASC I I_CHAR_TYPE 

An  enumerated  type  definition 
for  a  character  type  whose 
literals  are  the  identifier 
NON_NULL  and  all  non -ASCI I 
characters  with  printable 
graphics . 


-200  000.0 


9 


80 


21477483647 


$NAME 


16/  FFFFFFFE/ 


(NON  NULL) 


45 


APPENDIX  D 
WITHDRAWN  TESTS 


Some  tests  are  withdrawn  from  the  ACVC  because  they  do  not 
conform  to  the  Ada  Standard.  The  following  19  tests  had  been 
withdrawn  at  the  time  of  validation  testing  for  the  reasons 
indicated.  A  reference  of  the  form  "AI-ddddd"  is  to  an  Ada 
Commentary. 

.  C32114A:  An  unterminated  string  literal  occurs  at  line 

62. 

.  B33203C:  The  reserved  word  "IS"  is  misspelled  at  line  45. 

.  C34018A:  The  call  of  function  G  at  line  114  is  ambiguous 
in  the  presence  of  implicit  conversions. 

.  C35904A:  The  elaboration  of  subtype  declarations  SFX3  and 

SFX4  may  raise  NUMERIC_ERROR  instead  of  CONSTRAINT_ERROR 
as  expected  in  the  test. 

.  B37401A:  The  object  declarations  at  lines  126  through  135 

follow  subprogram  bodies  declared  in  the  same  declarative 
part . 

.  C41404A:  The  values  of  'LAST  and  'LENGTH  are  incorrect  in 

the  if  statements  from  line  74  to  the  end  of  the  test. 

.  B45116A:  ARRPRIBL1  and  ARRPRIBL2  are  initialized  with  a 

value  of  the  wrong  type  —  PRIBOOL_TYPE  instead  of 
ARRPRIBOOL_TYPE  —  at  line  41. 

.  C48008A:  The  assumption  that  evaluation  of  default  ini¬ 

tial  values  occurs  when  an  exception  is  raised  by  an 
allocator  is  incorrect  according  to  AI-00397. 

.  B49006A:  Object  declarations  at  lines  41  and  50  are  ter¬ 

minated  incorrectly  with  colons,  and  end  case;  is  missing 
from  line  42. 

.  B4A010C:  The  object  declaration  in  line  18  follows  a  sub¬ 

program  body  of  the  same  declarative  part. 

.  B74101B:  The  begin  at  line  9  causes  a  declarative  part  to 

be  treated  as  a  sequence  of  statements. 

.  C87B50A:  The  call  of  "/="  at  line  31  requires  a  use 

clause  for  package  A. 


.  C92005A:  The  "/="  for  type  PACK.BIG_INT  at  line  40  is  not 

visible  without  a  use  clause  for  the  package  PACK. 

.  C940ACA:  The  assumption  that  allocated  task  TT1  will  run 
prior  to  the  main  program,  and  thus  assign  SPYNUMB  the 
value  checked  for  by  the  main  program,  is  erroneous. 

.  CA3005A. . D  (4  tests):  No  valid  elaboration  order  exists 

for  these  tests. 

.  BC3204C:  The  body  of  BC3204C0  is  missing. 


